BBS in a Box 4

home *** CD-ROM | disk | FTP | other *** search

/ BBS in a Box 4 / BBS in a Box - Macintosh - Volume IV (January 1992) (BBS in a Box).iso / Files / Tele / T / Top-Ten Survey < prev next >

Wrap

Text File | 1987-10-14 | 3.6 KB | 535 lines | [TEXT/MACA]

** Intro TEXT1 1 The Covenant BBS 0 NIL ** INTRO TEXT2 1 College Football Top - Ten Poll 0 NIL ** INTRO TEXT3 1 -------------------------------------------- 0 NIL ** INTRO TEXT4 1 0 NIL ** INTRO TEXT5 1 Please enter you choice of team to be ranked: 0 NIL ** BLANK LINE TEXT6 1 0 NIL ** FIRST QUERY QUERY1 9 Number ( 1) ? 20 NIL ** CHECK FOR EMPTY EMPTY 4 0 QUERY1 ** WRITE (1) TO SCRATCH FILE REFERENCE1 13 ( 1) 0 NIL ** WRITE RESPONSE TO SCRATCH FILE RESPONSE1 5 0 NIL ** SECOND QUERY QUERY2 9 ( 2) ? 20 NIL ** CHECK FOR EMPTY EMPTY 4 0 QUERY2 ** WRITE (2) TO SCRATCH FILE REFERENCE2 13 ( 2) 0 NIL ** WRITE RESPONSE TO SCRATCH FILE RESPONSE2 5 0 NIL ** THIRD QUERY QUERY3 9 ( 3) ? 20 NIL ** CHECK FOR EMPTY EMPTY 4 0 QUERY3 ** WRITE (3) TO SCRATCH FILE REFERENCE3 13 ( 3) 0 NIL ** WRITE RESPONSE TO SCRATCH FILE RESPONSE3 5 0 NIL ** FOURTH QUERY QUERY4 9 ( 4) ? 20 NIL ** CHECK FOR EMPTY EMPTY 4 0 QUERY4 ** WRITE (4) TO SCRATCH FILE REFERENCE4 13 ( 4) 0 NIL ** WRITE RESPONSE TO SCRATCH FILE RESPONSE4 5 0 NIL ** FIFTH QUERY QUERY5 9 ( 5) ? 20 NIL ** CHECK FOR EMPTY EMPTY 4 0 QUERY5 ** WRITE (5) TO SCRATCH FILE REFERENCE5 13 ( 5) 0 NIL ** WRITE RESPONSE TO SCRATCH FILE RESPONSE5 5 0 NIL ** SIXTH QUERY QUERY6 9 ( 6) ? 20 NIL ** CHECK FOR EMPTY EMPTY 4 0 QUERY6 ** WRITE (6) TO SCRATCH FILE REFERENCE6 13 ( 6) 0 NIL ** WRITE RESPONSE TO SCRATCH FILE RESPONSE6 5 0 NIL ** SEVENTH QUERY QUERY7 9 ( 7) ? 20 NIL ** CHECK FOR EMPTY EMPTY 4 0 QUERY7 ** WRITE (7) TO SCRATCH FILE REFERENCE7 13 ( 7) 0 NIL ** WRITE RESPONSE TO SCRATCH FILE RESPONSE7 5 0 NIL ** EIGTH QUERY QUERY8 9 ( 8) ? 20 NIL ** CHECK FOR EMPTY EMPTY 4 0 QUERY8 ** WRITE (8) TO SCRATCH FILE REFERENCE8 13 ( 8) 0 NIL ** WRITE RESPONSE TO SCRATCH FILE RESPONSE8 5 0 NIL ** NINTH QUERY QUERY9 9 ( 9) ? 20 NIL ** CHECK FOR EMPTY EMPTY 4 0 QUERY9 ** WRITE (9) TO SCRATCH FILE REFERENCE9 13 ( 9) 0 NIL ** WRITE RESPONSE TO SCRATCH FILE RESPONSE9 5 0 NIL ** TENTH QUERY QUERY10 9 (10) ? 20 NIL ** CHECK FOR EMPTY EMPTY 4 0 QUERY10 ** WRITE (10) TO SCRATCH FILE REFERENCE10 13 (10) 0 NIL ** WRITE RESPONSE TO SCRATCH FILE RESPONSE10 5 0 NIL ** BLANK LINE TEXT6 1 0 NIL ** BLANK LINE TEXT7 1 0 NIL ** ASK FOR CHANGES QUESTION1 10 Do you wish to edit your choices (Y/N) ? 1 NIL ** CHECK FOR EMPTY EMPTY 4 0 QUESTION1 ** ROUT ACCORDING TO ANSWER (N) ROUT 3 N 1 END ** BLANK LINE BLANK 1 0 NIL ** BLANK LINE BLANK 1 0 NIL ** BLANK LINE BLANK 1 0 NIL ** BLANK LINE BLANK 1 0 NIL ** BLANK LINE BLANK 1 0 NIL ** BLANK LINE BLANK 1 0 NIL ** BLANK LINE BLANK 1 0 NIL ** BLANK LINE BLANK 1 0 NIL ** BLANK LINE BLANK 1 0 NIL ** BLANK LINE BLANK 1 0 NIL ** BLANK LINE BLANK 1 0 NIL ** BLANK LINE BLANK 1 0 NIL ** BLANK LINE BLANK 1 0 NIL ** BLANK LINE BLANK 1 0 NIL ** BLANK LINE BLANK 1 0 NIL ** BLANK LINE BLANK 1 0 NIL ** BLANK LINE BLANK 1 0 NIL ** BLANK LINE BLANK 1 0 NIL ** BLANK LINE BLANK 1 0 NIL ** BLANK LINE BLANK 1 0 NIL ** BLANK LINE BLANK 1 0 NIL ** BLANK LINE BLANK 1 0 NIL ** BLANK LINE BLANK 1 0 NIL ** BLANK LINE BLANK 1 0 NIL ** BLANK LINE BLANK 1 0 NIL ** BLANK LINE BLANK 1 0 NIL ** BLANK LINE BLANK 1 0 NIL ** BLANK LINE BLANK 1 0 NIL ** BLANK LINE BLANK 1 0 NIL ** BLANK LINE BLANK 1 0 NIL ** BLANK LINE BLANK 1 0 NIL ** BLANK LINE BLANK 1 0 NIL ** BLANK LINE BLANK 1 0 NIL ** CLEAR SCRATCH FILE AND START OVER CLEAR 8 0 NIL ** GO BACK, JUST IN CASE BACKUP 3 Y 1 QUERY1 ** SAVE RESPONSES END 1 0 NIL ** THANK USER THANKS 1 Thank you for your participation in The Covenant BBS Top-Ten Poll 0 NIL ** FINAL COMMAND FINAL 6 0 NIL